{$CLEO}
// script test light damage states
{$I ivlm_constants}
0000:
while true
    {$I forplayercar}
        0A97: 0@ = car veh struct
        0A8E: 1@ = 0@ + 0x5A0
        for 2@ = HEADLIGHT_LEFT to LIGHT_LEFT
            0AA8: call_function_method _getLightState struct 1@ num_params 1 pop 0 light 2@ store_to 3@(2@,4i)
        end
        0AD1: show_formatted_text_highpriority "HL: %d, HR: %d, RR: %d, RL: %d" time 100 3@ 4@ 5@ 6@
    {$I for_end}
    wait 0
end